(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     40943,       1295]
NotebookOptionsPosition[     35176,       1095]
NotebookOutlinePosition[     35826,       1120]
CellTagsIndexPosition[     35746,       1115]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["TransferMatrixFormalism Package", "Categorization",
 CellChangeTimes->{3.6000067195703764`*^9},
 CellLabel->"Paclet Name",
 CellID->112247008],

Cell["TransferMatrixFormalism`", "Categorization",
 CellLabel->"Context",
 CellID->83264728],

Cell["TransferMatrixFormalism/ref/InternalTransferC", "Categorization",
 CellChangeTimes->{{3.600006695639343*^9, 3.600006700079349*^9}},
 CellLabel->"URI",
 CellID->359253783]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["transfer coefficient", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.598571763357416*^9}},
 CellID->1164421360],

Cell["internal", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.5985717667574205`*^9}},
 CellID->4696878],

Cell["Eq. 23", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.598571770667426*^9}},
 CellID->92943054],

Cell["Eq. 24", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.598571775298433*^9}},
 CellID->134980806],

Cell["Eq. 25", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.598571779748439*^9}},
 CellID->533646228],

Cell["Eq. 26", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.5985717857884474`*^9}},
 CellID->470995618],

Cell["Eq. 31", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.59857178752845*^9}},
 CellID->115016053],

Cell["Eq. 32", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.5985717900184536`*^9}},
 CellID->41437996],

Cell["Eq. 33", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.598571792878457*^9}},
 CellID->62213227],

Cell["Eq. 34", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.59857179462846*^9}},
 CellID->572932200],

Cell["Eq. 35", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.5985717970284634`*^9}},
 CellID->684635407],

Cell["Eq. 36", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.5985718004794683`*^9}},
 CellID->547644285],

Cell["Eq. 37", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.598571804599474*^9}},
 CellID->253283360],

Cell["Eq. 38", "Keywords",
 CellChangeTimes->{{3.598571753086402*^9, 3.598571806779477*^9}},
 CellID->567819078]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["InternalTransferC", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["InternalTransferC",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"], "[", 
   RowBox[{"\"\<\!\(\*
StyleBox[\"method\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"xPosDir\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"inPosDir\", \"TI\"]\)\>\"", ",", 
    SubscriptBox[
     StyleBox["SI", "TI"], 
     RowBox[{"v", "-", 
      RowBox[{"1", "/", "v"}]}]], ",", 
    SubscriptBox[
     StyleBox["\[CapitalPhi]", "TI"], 
     RowBox[{"v", "-", 
      RowBox[{"1", "/", "v"}]}]], ",", 
    SubscriptBox[
     StyleBox["SII", "TI"], 
     RowBox[{"v", "-", 
      RowBox[{"1", "/", "v"}]}]]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates the internal transfer coefficient for an \
externally incident wave with ",
 StyleBox["\"xPosDir\"", "TI"],
 " external position and directionality to an internal wave with ",
 StyleBox["\"inPosDir\"", "TI"],
 " position and directionality adjacent to an interface.  The caclulatin uses \
the partial system transfer matrices for subsystems I and II (",
 StyleBox["SI", "TI"],
 " and ",
 StyleBox["SII", "TI"],
 ")and the layer phase matrix ",
 StyleBox["\[CapitalPhi]", "TI"],
 " for layer ",
 Cell[BoxData[
  RowBox[{
   StyleBox["v", "TI"], "-", 
   RowBox[{"1", "/", 
    StyleBox["v", "TI"]}]}]], "InlineFormula",
  ShowStringCharacters->False],
 ". Eqs. 23-26 and 31-38."
}], "Usage",
 CellChangeTimes->{{3.5985426181931667`*^9, 3.5985426596042247`*^9}, {
   3.5985428103374367`*^9, 3.598542853279497*^9}, 3.5985430212727327`*^9, {
   3.598543202026986*^9, 3.5985432033069882`*^9}, {3.598543295513118*^9, 
   3.5985433139961433`*^9}, {3.598571834061515*^9, 3.5985719310426517`*^9}}],

Cell[TextData[{
 StyleBox["\"method\"", "TI"],
 "= ",
 StyleBox["\"SII\"", "TI"],
 " (",
 ButtonBox["Eqs. 23-26",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/InternalTransferC#\
148884605"],
 ") or ",
 StyleBox["\"PartialSTC\"", "TI"],
 " (",
 ButtonBox["Eqs. 31-38",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/InternalTransferC#\
148884605"],
 ")"
}], "Notes",
 CellChangeTimes->{
  3.597827152234742*^9, {3.5985430268927402`*^9, 3.598543030383745*^9}},
 CellID->1067943069],

Cell[TextData[{
 StyleBox["\"xPosDir\"", "TI"],
 " = ",
 StyleBox["\"0-\"", "TI"],
 " or ",
 StyleBox["\"kp1+'\"", "TI"]
}], "Notes",
 CellID->2677902],

Cell[TextData[{
 StyleBox["\"inPosDir\"", "TI"],
 " = ",
 StyleBox["\"v-'\"", "TI"],
 " or ",
 StyleBox["\"v+'\"", "TI"],
 " for ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["SI", "TI"], 
   StyleBox["v", "TI"]]], "InlineFormula",
  ShowStringCharacters->False],
 " ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[CapitalPhi]", "TI"], 
   StyleBox["v", "TI"]]], "InlineFormula"],
 " ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["SII", "TI"], 
   StyleBox["v", "TI"]]], "InlineFormula"],
 " or\n",
 StyleBox["\"inPosDir\"", "TI"],
 " = ",
 StyleBox["\"v-\"", "TI"],
 " or ",
 StyleBox["\"v+\"", "TI"],
 " for  ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["SI", "TI"], 
   RowBox[{"v", "-", "1"}]]], "InlineFormula"],
 " ",
 Cell[BoxData[
  StyleBox[
   SubscriptBox[
    StyleBox["\[CapitalPhi]", "TI"], 
    StyleBox[
     RowBox[{"v", "-", "1"}], "TI"]], "TI"]], "InlineFormula"],
 " ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["SII", "TI"], 
   RowBox[{"v", "-", "1"}]]], "InlineFormula"],
 " "
}], "Notes",
 CellChangeTimes->{{3.597828091135392*^9, 3.5978281546129036`*^9}, {
  3.5985431271508813`*^9, 3.598543143281904*^9}, {3.598543188665968*^9, 
  3.5985432662110767`*^9}},
 CellID->53666226],

Cell[TextData[{
 "SI is the partial system transfer matrix for subsystem I, implemented as ",
 ButtonBox["AbelesSIv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIv"],
 " in this package."
}], "Notes",
 CellChangeTimes->{{3.5985715559231243`*^9, 3.598571646998253*^9}},
 CellID->462505067],

Cell[TextData[{
 "\[CapitalPhi] is the layer phase matrix implemented as ",
 ButtonBox["PhaseMv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"],
 "."
}], "Notes",
 CellChangeTimes->{{3.5985715559231243`*^9, 3.5985716734492893`*^9}},
 CellID->244811978],

Cell[TextData[{
 "SII is the partial system transfer matrix for subsystem II impleneted as ",
 ButtonBox["AbelesSIIv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIIv"],
 "."
}], "Notes",
 CellChangeTimes->{{3.5985715559231243`*^9, 3.598571699941327*^9}},
 CellID->328137334],

Cell["\<\
The internal transfer coefficients relate the electric field amplitude of a \
light wave incident on a thin film system to the  field amplitude immediately \
adjacent to, and traveling towards or away from, any internal interface \
within the system.  \
\>", "Notes",
 CellChangeTimes->{{3.5985689644924808`*^9, 3.598568999976531*^9}, {
  3.598569030047573*^9, 3.5985691296047125`*^9}},
 CellID->358702848],

Cell[TextData[{
 "There are a total of 8 internal transfer coefficients that account for \
incidence from either side of the system (medium ",
 Cell[BoxData["0"], "InlineFormula",
  ShowStringCharacters->False],
 " or medium ",
 Cell[BoxData[
  RowBox[{
   StyleBox["k", "TI"], "+", "1"}]], "InlineFormula",
  ShowStringCharacters->False],
 ") and transfer to all 4 field positions and directionalities adjacent to \
interface ",
 Cell[BoxData[
  StyleBox["v", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 " (waves traveling towards and away on the top side as well as the bottom \
side of each interface)."
}], "Notes",
 CellChangeTimes->{{3.5985691728487735`*^9, 3.598569316703976*^9}, {
  3.5985694109201083`*^9, 3.5985694109201083`*^9}, {3.598570861055147*^9, 
  3.598570915941224*^9}},
 CellID->210431318],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo"], Cell[TextData[ButtonBox["Eq. 23 or 31",
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
InternalTransferC#148884605"]], "TableText"], Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubsuperscriptBox["\[Tau]", 
        RowBox[{"0", ",", "v"}], 
        RowBox[{"-", "'"}]], TraditionalForm]], "InlineMath"],
     Cell[BoxData[
      FormBox[
       RowBox[{"=", 
        FractionBox[
         SubsuperscriptBox["\[CapitalEpsilon]", "v", 
          RowBox[{"-", "'"}]], 
         SubscriptBox[
          OverscriptBox["\[CapitalEpsilon]", "\[LeftArrow]"], "0"]]}], 
       TraditionalForm]], "InlineMath"]
    }], "TableText"], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["InternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"], 
      "[", 
      RowBox[{"\"\<\!\(\*
StyleBox[\"method\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"0\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"v\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\!\(\*
StyleBox[\"'\", \"TI\"]\)\>\"", ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], "v"], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TI"], "v"], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], "v"]}], "]"}]], "InlineFormula"]], 
     "TableText"]},
   {Cell["      ", "ModInfo"], Cell[TextData[ButtonBox["Eq. 23 or 32",
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
InternalTransferC#148884605"]], "TableText"], Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubsuperscriptBox["\[Tau]", 
        RowBox[{"0", ",", "v"}], 
        RowBox[{"+", "'"}]], TraditionalForm]], "InlineMath"],
     Cell[BoxData[
      FormBox[
       RowBox[{"=", 
        FractionBox[
         SubsuperscriptBox["\[CapitalEpsilon]", "v", 
          RowBox[{"+", "'"}]], 
         SubscriptBox[
          OverscriptBox["\[CapitalEpsilon]", "\[LeftArrow]"], "0"]]}], 
       TraditionalForm]], "InlineMath"]
    }], "TableText"], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["InternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"], 
      "[", 
      RowBox[{
       StyleBox[
        RowBox[{"\"\<\>", "method", "\"\<\>"}], "TI"], 
       StyleBox[",", "TI"], 
       StyleBox[" ", "TI"], 
       StyleBox[
        RowBox[{
         RowBox[{"\"\<\>", "0"}], "-", "\"\<\>"}], "TI"], 
       StyleBox[",", "TI"], 
       StyleBox[" ", "TI"], 
       StyleBox[
        RowBox[{
         RowBox[{"\"\<\>", "v"}], "+", 
         RowBox[{"'", "\"\<\>"}]}], "TI"], ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], 
        StyleBox["v", "TI"]], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TR"], 
        StyleBox["v", "TI"]], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], 
        StyleBox["v", "TI"]]}], "]"}]], "InlineFormula"]], "TableText"]},
   {Cell["      ", "ModInfo"], Cell[TextData[ButtonBox["Eq. 24 or 33",
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
InternalTransferC#148884605"]], "TableText"], Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubsuperscriptBox["\[Tau]", 
        RowBox[{"0", ",", "v"}], "-"], TraditionalForm]], "InlineMath"],
     Cell[BoxData[
      FormBox[
       RowBox[{"=", 
        FractionBox[
         SubsuperscriptBox["\[CapitalEpsilon]", "v", "-"], 
         SubscriptBox[
          OverscriptBox["\[CapitalEpsilon]", "\[LeftArrow]"], "0"]]}], 
       TraditionalForm]], "InlineMath"]
    }], "TableText",
     Deletable->True], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["InternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"], 
      "[", 
      RowBox[{"\"\<\!\(\*
StyleBox[\"method\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"0\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"v\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\>\"", ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], 
        RowBox[{"v", "-", "1"}]], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TI"], 
        RowBox[{"v", "-", "1"}]], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], 
        RowBox[{"v", "-", "1"}]]}], "]"}]], "InlineFormula"]], "TableText"]},
   {Cell["      ", "ModInfo"], Cell[TextData[ButtonBox["Eq. 24 or 34",
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
InternalTransferC#148884605"]], "TableText"], Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubsuperscriptBox["\[Tau]", 
        RowBox[{"0", ",", "v"}], "+"], TraditionalForm]], "InlineMath"],
     Cell[BoxData[
      FormBox[
       RowBox[{"=", 
        FractionBox[
         SubsuperscriptBox["\[CapitalEpsilon]", "v", "+"], 
         SubscriptBox[
          OverscriptBox["\[CapitalEpsilon]", "\[LeftArrow]"], "0"]]}], 
       TraditionalForm]], "InlineMath"]
    }], "TableText"], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["InternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"], 
      "[", 
      RowBox[{"\"\<\!\(\*
StyleBox[\"method\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"0\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"v\", \"TI\"]\)\!\(\*
StyleBox[\"+\", \"TI\"]\)\>\"", ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], 
        RowBox[{"v", "-", "1"}]], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TI"], 
        RowBox[{"v", "-", "1"}]], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], 
        RowBox[{"v", "-", "1"}]]}], "]"}]], "InlineFormula"]], "TableText"]},
   {Cell["      ", "ModInfo"], Cell[TextData[ButtonBox["Eq. 25 or 35",
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
InternalTransferC#148884605"]], "TableText"], Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubsuperscriptBox["\[Tau]", 
        RowBox[{
         RowBox[{"k", "+", "1"}], ",", "v"}], 
        RowBox[{"-", "'"}]], TraditionalForm]], "InlineMath"],
     Cell[BoxData[
      FormBox[
       RowBox[{"=", 
        FractionBox[
         SubsuperscriptBox["\[CapitalEpsilon]", "v", 
          RowBox[{"-", "'"}]], 
         SubscriptBox[
          OverscriptBox["\[CapitalEpsilon]", "\[LeftArrow]"], 
          RowBox[{"k", "+", "1"}]]]}], TraditionalForm]], "InlineMath"]
    }], "TableText",
     Deletable->True], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["InternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"], 
      "[", 
      RowBox[{"\"\<\!\(\*
StyleBox[\"method\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"kp1\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"v\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\!\(\*
StyleBox[\"'\", \"TI\"]\)\>\"", ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], "v"], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TI"], "v"], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], "v"]}], "]"}]], "InlineFormula"]], 
     "TableText"]},
   {Cell["      ", "ModInfo"], Cell[TextData[ButtonBox["Eq. 25 or 36",
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
InternalTransferC#148884605"]], "TableText"], Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubsuperscriptBox["\[Tau]", 
        RowBox[{
         RowBox[{"k", "+", "1"}], ",", "v"}], 
        RowBox[{"+", "'"}]], TraditionalForm]], "InlineMath"],
     Cell[BoxData[
      FormBox[
       RowBox[{"=", 
        FractionBox[
         SubsuperscriptBox["\[CapitalEpsilon]", "v", 
          RowBox[{"+", "'"}]], 
         SubscriptBox[
          OverscriptBox["\[CapitalEpsilon]", "\[LeftArrow]"], 
          RowBox[{"k", "+", "1"}]]]}], TraditionalForm]], "InlineMath"]
    }], "TableText",
     Deletable->True], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["InternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"], 
      "[", 
      RowBox[{
       StyleBox[
        RowBox[{"\"\<\>", "method", "\"\<\>"}], "TI"], 
       StyleBox[",", "TI"], 
       StyleBox[" ", "TI"], 
       StyleBox[
        RowBox[{
         RowBox[{"\"\<\>", "kp1"}], "-", "\"\<\>"}], "TI"], 
       StyleBox[",", "TI"], 
       StyleBox[" ", "TI"], 
       StyleBox[
        RowBox[{
         RowBox[{"\"\<\>", "v"}], "+", 
         RowBox[{"'", "\"\<\>"}]}], "TI"], ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], 
        StyleBox["v", "TI"]], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TR"], 
        StyleBox["v", "TI"]], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], 
        StyleBox["v", "TI"]]}], "]"}]], "InlineFormula"]], "TableText"]},
   {Cell["      ", "ModInfo"], Cell[TextData[ButtonBox["Eq. 26 or 37",
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
InternalTransferC#148884605"]], "TableText"], Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubsuperscriptBox["\[Tau]", 
        RowBox[{
         RowBox[{"k", "+", "1"}], ",", "v"}], "-"], TraditionalForm]], 
      "InlineMath"],
     Cell[BoxData[
      FormBox[
       RowBox[{"=", 
        FractionBox[
         SubsuperscriptBox["\[CapitalEpsilon]", "v", "-"], 
         SubscriptBox[
          OverscriptBox["\[CapitalEpsilon]", "\[LeftArrow]"], 
          RowBox[{"k", "+", "1"}]]]}], TraditionalForm]], "InlineMath"]
    }], "TableText"], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["InternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"], 
      "[", 
      RowBox[{"\"\<\!\(\*
StyleBox[\"method\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"kp1\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"v\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\>\"", ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], 
        RowBox[{"v", "-", "1"}]], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TI"], 
        RowBox[{"v", "-", "1"}]], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], 
        RowBox[{"v", "-", "1"}]]}], "]"}]], "InlineFormula"]], "TableText"]},
   {Cell["      ", "ModInfo"], Cell[TextData[ButtonBox["Eq. 26 or 38",
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
InternalTransferC#148884605"]], "TableText"], Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubsuperscriptBox["\[Tau]", 
        RowBox[{
         RowBox[{"k", "+", "1"}], ",", "v"}], "+"], TraditionalForm]], 
      "InlineMath"],
     Cell[BoxData[
      FormBox[
       RowBox[{"=", 
        FractionBox[
         SubsuperscriptBox["\[CapitalEpsilon]", "v", "+"], 
         SubscriptBox[
          OverscriptBox["\[CapitalEpsilon]", "\[LeftArrow]"], 
          RowBox[{"k", "+", "1"}]]]}], TraditionalForm]], "InlineMath"]
    }], "TableText"], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["InternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"], 
      "[", 
      RowBox[{"\"\<\!\(\*
StyleBox[\"method\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"kp1\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"v\", \"TI\"]\)\!\(\*
StyleBox[\"+\", \"TI\"]\)\>\"", ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], 
        RowBox[{"v", "-", "1"}]], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TI"], 
        RowBox[{"v", "-", "1"}]], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], 
        RowBox[{"v", "-", "1"}]]}], "]"}]], "InlineFormula"]], "TableText"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.598569451114165*^9, 3.5985695922173634`*^9}, {
  3.5985696263494115`*^9, 3.5985696809044886`*^9}, {3.5985697260675516`*^9, 
  3.5985698433197174`*^9}, {3.59857008800506*^9, 3.5985700955950713`*^9}, {
  3.598570255658296*^9, 3.5985708063310704`*^9}, {3.598570944603265*^9, 
  3.598570982088317*^9}, {3.5985710391423974`*^9, 3.5985715254410815`*^9}},
 CellID->25279120],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["InternalTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"]], 
  "InlineFormula",
  ShowStringCharacters->False],
 " should not be confused with ",
 Cell[BoxData[
  ButtonBox["InputTransferC",
   BaseStyle->"Link",
   ButtonData->
    "paclet:InterfacialThinFilmInterferenceModel/ref/InputTransferC"]], 
  "InlineFormula",
  ShowStringCharacters->False],
 ", the transfer coefficient that relates incident fields to the local field \
at interface ",
 Cell[BoxData[
  StyleBox["v", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 "."
}], "Notes",
 CellChangeTimes->{{3.598569321613983*^9, 3.5985694058191013`*^9}, {
  3.5985715443821077`*^9, 3.598571545212109*^9}, {3.5985719636746974`*^9, 
  3.5985719636746974`*^9}},
 CellID->520845148],

Cell[TextData[{
 ButtonBox["InputTransferC",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/InputTransferC"],
 " uses the adjacent fields calculated by ",
 ButtonBox["InternalTransferC",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"],
 " to compute the input local field coefficient at an interface.  ",
 ButtonBox["See below",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/InternalTransferC#\
51026477"],
 " for more details."
}], "Notes",
 CellChangeTimes->{{3.598569321613983*^9, 3.5985694058191013`*^9}, {
  3.5985715443821077`*^9, 3.598571545212109*^9}, {3.5985719636746974`*^9, 
  3.598572068221844*^9}},
 CellID->320790173]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell[TextData[ButtonBox["Nonlinear Spectroscopy of Thin Film Systems",
 BaseStyle->"Link",
 ButtonData->
  "paclet:ThinFilmNLS/tutorial/Nonlinear Spectroscopy of Thin Film \
Systems"]], "Tutorials",
 CellChangeTimes->{{3.597778379480859*^9, 3.5977783986376925`*^9}, {
  3.6000111315791473`*^9, 3.6000111315981483`*^9}},
 CellID->40297743],

Cell[TextData[ButtonBox["Methods to Compute Input Transfer Coefficients",
 BaseStyle->"Link",
 ButtonData->
  "paclet:ThinFilmNLS/tutorial/Methods to Compute Input Transfer \
Coefficients"]], "Tutorials",
 CellChangeTimes->{{3.5983754400219774`*^9, 3.598375477337243*^9}, {
  3.6000112394173155`*^9, 3.6000112394373164`*^9}},
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597765920073867*^9, 3.5977659201674676`*^9}},
 CellID->148884605]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell["XXXX", "SeeAlso",
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[TextData[{
 "Calculate the internal transfer coefficient of an s-polarized light wave \
incident from medium 0 to the top side of each interface and moving in the ",
 Cell[BoxData[
  RowBox[{"-", 
   StyleBox["z", "TI"]}]], "InlineFormula",
  ShowStringCharacters->False],
 " direction for a 3-layer system using subsystem II:"
}], "ExampleText",
 CellChangeTimes->{{3.5985433501091948`*^9, 3.5985434693383617`*^9}, {
  3.598543747916755*^9, 3.598543749606757*^9}, {3.598550031778742*^9, 
  3.5985500569097767`*^9}},
 CellID->113250370],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Theta]in", "=", 
            RowBox[{"60", "\[Degree]"}]}], ",", 
           RowBox[{"\[Lambda]", "=", "800"}], " ", 
           RowBox[{"(*", "nm", "*)"}], ",", 
           RowBox[{"n0", "=", "1"}], ",", 
           RowBox[{"ndStack", "=", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1.7", ",", "140"}], " ", 
               RowBox[{"(*", "nm", "*)"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1.8", ",", "300"}], " ", 
               RowBox[{"(*", "nm", "*)"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"2.2", ",", "50"}], " ", 
               RowBox[{"(*", "nm", "*)"}], "}"}]}], "}"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"nkp1", "=", "3.2"}], ",", "\[IndentingNewLine]", "SIvm1", 
           ",", "\[CapitalPhi]vm1", ",", "SIIvm1"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"SIvm1", "=", 
           RowBox[{"AbelesSIv", "[", 
            RowBox[{"\"\<s\>\"", ",", 
             FractionBox["1", "\[Lambda]"], ",", "\[Theta]in", ",", "n0", ",",
              "ndStack", ",", "nkp1", ",", 
             RowBox[{"v", "-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"\[CapitalPhi]vm1", "=", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"v", "<", "3"}], ",", 
             RowBox[{"PhaseMv", "[", 
              RowBox[{
               FractionBox["1", "\[Lambda]"], ",", 
               RowBox[{"RefractionAngle", "[", 
                RowBox[{"\[Theta]in", ",", "n0", ",", 
                 RowBox[{"ndStack", "[", 
                  RowBox[{"[", 
                   RowBox[{"v", ",", "1"}], "]"}], "]"}]}], "]"}], ",", 
               RowBox[{"Sequence", "@@", 
                RowBox[{"ndStack", "[", 
                 RowBox[{"[", "v", "]"}], "]"}]}]}], "]"}], ",", 
             RowBox[{"IdentityMatrix", "[", "2", "]"}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"SIIvm1", "=", 
           RowBox[{"AbelesSIIv", "[", 
            RowBox[{"\"\<s\>\"", ",", 
             FractionBox["1", "\[Lambda]"], ",", "\[Theta]in", ",", "n0", ",",
              "ndStack", ",", "nkp1", ",", 
             RowBox[{"v", "-", "1"}]}], "]"}]}], ";", "\n", 
          RowBox[{"InternalTransferC", "[", 
           RowBox[{
           "\"\<SII\>\"", ",", "\"\<0-\>\"", ",", "\"\<v-\>\"", ",", "SIvm1", 
            ",", "\[CapitalPhi]vm1", ",", "SIIvm1"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "4"}], "}"}]}], "]"}], "}"}]}], ",", 
   RowBox[{"TableHeadings", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"\"\<v = \>\"", "<>", 
         RowBox[{"ToString", "[", "i", "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "4"}], "}"}]}], "]"}], ",", 
      RowBox[{
      "{", "\"\<\!\(\*SubsuperscriptBox[\(\[Tau]\), \(0, v\), \(-\)]\)\>\"", 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"TableAlignments", "\[Rule]", "Center"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.598543547495472*^9, 3.598543616384569*^9}, {
  3.5985436743286505`*^9, 3.5985437094516997`*^9}, {3.5985464032864923`*^9, 
  3.598546704282915*^9}, {3.598549200140571*^9, 3.5985492240426044`*^9}, {
  3.5985495492040625`*^9, 3.59854958983812*^9}, {3.598549621791165*^9, 
  3.598549635303184*^9}, {3.598549861303502*^9, 3.5985500132387156`*^9}, {
  3.5985500611937838`*^9, 3.598550086255819*^9}, {3.5985501361088886`*^9, 
  3.598550159511922*^9}, {3.598568242557392*^9, 3.598568353307548*^9}, {
  3.598568439890669*^9, 3.5985684534016886`*^9}, {3.598568605726976*^9, 
  3.5985687337211566`*^9}, {3.598568806777259*^9, 3.59856882868929*^9}},
 CellLabel->"In[14]:=",
 CellID->75831356],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(\[Tau]\\), \\(0, v\\), \
\\(-\\)]\\)\"\>",
       HoldForm]},
     {
      TagBox["\<\"v = 1\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"-", "0.037708577248524694`"}], "+", 
       RowBox[{"0.9992887786830652`", " ", "\[ImaginaryI]"}]}]},
     {
      TagBox["\<\"v = 2\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"-", "0.4777618249194655`"}], "-", 
       RowBox[{"0.31355362116760216`", " ", "\[ImaginaryI]"}]}]},
     {
      TagBox["\<\"v = 3\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"-", "0.07429721296273217`"}], "+", 
       RowBox[{"0.5174075684561583`", " ", "\[ImaginaryI]"}]}]},
     {
      TagBox["\<\"v = 4\"\>",
       HoldForm], 
      RowBox[{"0.3065917821747393`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.32111088443670616`", " ", "\[ImaginaryI]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{"v = 1", "v = 2", "v = 3", "v = 4"}, {
      "\!\(\*SubsuperscriptBox[\(\[Tau]\), \(0, v\), \(-\)]\)"}}, 
    TableAlignments -> Center]]]], "Output",
 CellChangeTimes->{{3.598549861843503*^9, 3.598549894186548*^9}, {
   3.598549933980604*^9, 3.5985499712936563`*^9}, {3.5985500076587076`*^9, 
   3.598550013648716*^9}, 3.598550062083785*^9, {3.5985683242135067`*^9, 
   3.5985683536075487`*^9}, {3.598568598115965*^9, 3.598568657042048*^9}, {
   3.59856868718509*^9, 3.598568725251145*^9}, 3.598568833509297*^9},
 CellLabel->"Out[14]//TableForm=",
 CellID->145317295]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 767},
WindowMargins->{{Automatic, 234}, {68, Automatic}},
ShowSelection->True,
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[33656, 1037, 100, 2, 53, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 35606, 1108}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 148, 3, 31, "Categorization",
 CellID->112247008],
Cell[1210, 50, 92, 2, 31, "Categorization",
 CellID->83264728],
Cell[1305, 54, 176, 3, 31, "Categorization",
 CellID->359253783]
}, Open  ]],
Cell[CellGroupData[{
Cell[1518, 62, 55, 1, 27, "KeywordsSection",
 CellID->477174294],
Cell[1576, 65, 127, 2, 17, "Keywords",
 CellID->1164421360],
Cell[1706, 69, 114, 2, 17, "Keywords",
 CellID->4696878],
Cell[1823, 73, 111, 2, 17, "Keywords",
 CellID->92943054],
Cell[1937, 77, 112, 2, 17, "Keywords",
 CellID->134980806],
Cell[2052, 81, 112, 2, 17, "Keywords",
 CellID->533646228],
Cell[2167, 85, 114, 2, 17, "Keywords",
 CellID->470995618],
Cell[2284, 89, 111, 2, 17, "Keywords",
 CellID->115016053],
Cell[2398, 93, 113, 2, 17, "Keywords",
 CellID->41437996],
Cell[2514, 97, 111, 2, 17, "Keywords",
 CellID->62213227],
Cell[2628, 101, 111, 2, 17, "Keywords",
 CellID->572932200],
Cell[2742, 105, 114, 2, 17, "Keywords",
 CellID->684635407],
Cell[2859, 109, 114, 2, 17, "Keywords",
 CellID->547644285],
Cell[2976, 113, 112, 2, 17, "Keywords",
 CellID->253283360],
Cell[3091, 117, 112, 2, 17, "Keywords",
 CellID->567819078]
}, Open  ]],
Cell[CellGroupData[{
Cell[3240, 124, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[3308, 127, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[3405, 131, 82, 2, 70, "Template",
 CellID->158391909],
Cell[3490, 135, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[3574, 139, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3693, 146, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[3749, 149, 63, 2, 70, "Details",
 CellID->670882175],
Cell[3815, 153, 69, 2, 70, "Details",
 CellID->350963985],
Cell[3887, 157, 64, 2, 70, "Details",
 CellID->8391405],
Cell[3954, 161, 69, 2, 70, "Details",
 CellID->3610269],
Cell[4026, 165, 61, 2, 70, "Details",
 CellID->401364205],
Cell[4090, 169, 61, 2, 70, "Details",
 CellID->350204745],
Cell[4154, 173, 63, 2, 70, "Details",
 CellID->732958810],
Cell[4220, 177, 78, 2, 70, "Details",
 CellID->222905350],
Cell[4301, 181, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4405, 188, 60, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[4468, 191, 1764, 47, 117, "Usage"],
Cell[6235, 240, 576, 22, 24, "Notes",
 CellID->1067943069],
Cell[6814, 264, 151, 7, 24, "Notes",
 CellID->2677902],
Cell[6968, 273, 1204, 50, 41, "Notes",
 CellID->53666226],
Cell[8175, 325, 323, 8, 23, "Notes",
 CellID->462505067],
Cell[8501, 335, 287, 8, 23, "Notes",
 CellID->244811978],
Cell[8791, 345, 309, 8, 23, "Notes",
 CellID->328137334],
Cell[9103, 355, 416, 8, 51, "Notes",
 CellID->358702848],
Cell[9522, 365, 823, 21, 69, "Notes",
 CellID->210431318],
Cell[10348, 388, 12593, 342, 368, "3ColumnTableMod",
 CellID->25279120],
Cell[22944, 732, 844, 25, 41, "Notes",
 CellID->520845148],
Cell[23791, 759, 746, 19, 37, "Notes",
 CellID->320790173]
}, Open  ]],
Cell[CellGroupData[{
Cell[24574, 783, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[24634, 786, 338, 7, 16, "Tutorials",
 CellID->40297743],
Cell[24975, 795, 345, 7, 16, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[25357, 807, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[25443, 810, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[25538, 816, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[25606, 819, 444, 8, 29, "RelatedLinks",
 CellID->148884605]
}, Open  ]],
Cell[CellGroupData[{
Cell[26087, 832, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[26145, 835, 43, 1, 16, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[26225, 841, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[26285, 844, 46, 1, 16, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[26368, 850, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[26727, 863, 541, 12, 49, "ExampleText",
 CellID->113250370],
Cell[CellGroupData[{
Cell[27293, 879, 4043, 91, 371, "Input",
 CellID->75831356],
Cell[31339, 972, 2268, 59, 84, "Output",
 CellID->145317295]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33656, 1037, 100, 2, 53, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[33759, 1041, 125, 3, 30, "ExampleSection",
 CellID->1293636265],
Cell[33887, 1046, 148, 3, 18, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[34060, 1053, 127, 3, 18, "ExampleSection",
 CellID->2061341341],
Cell[34190, 1058, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[34323, 1063, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[34468, 1069, 131, 3, 18, "ExampleSection",
 CellID->258228157],
Cell[34602, 1074, 142, 3, 18, "ExampleSection",
 CellID->2123667759],
Cell[34747, 1079, 135, 3, 18, "ExampleSection",
 CellID->1305812373],
Cell[34885, 1084, 140, 3, 70, "ExampleSection",
 CellID->1653164318],
Cell[35028, 1089, 132, 3, 70, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
